home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1994 June / 1994-06b.d64 / file drawer 4.5 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-01-01  |  14.8 KB  |  693 lines
  1. 1 poke53281,1:printchr$(14)"[147][151] [198][201][204][197] [196][210][193][215][197][210] 4.5 -- [193] [196][193][212][193][194][193][211][197] [205][193][206][193][199][197][210]"
  2. 2 print" [211]ave up to 300 records, 8 fields each."
  3. 3 print" [211][200][193][210][197][215][193][210][197]: [208]lease send $2 to author:    [211]. [202]. [212]akis"
  4. 4 print" 1900 [194]urkley [210]d.":print" [215]illiamston, [205][201] 48895":goto60000
  5. 5 dims$(300):lm=0
  6. 6 poke198,0:print"[147]":goto60005
  7. 7 poke198,0:goto60007
  8. 8 poke198,0:goto60008
  9. 9 read r$,r:fort=1tor:readf$(t):next
  10. 20 printchr$(14)chr$(8):poke53281,0:poke53280,0:print"[155]"
  11. 25 printchr$(14)chr$(8):poke53281,0:poke53280,0:print"[155]"
  12. 26 print"[147]v4.5          [198]ile [196]rawer:
  13. 27 [153]""[163](38[171][195](r$))[173]2)"or";:[129]l[178]1[164][195](r$):[153]"tan";:[130]l:[153]"^
  14. 28 printtab((38-len(r$))/2)"[221]"r$"[146][221]
  15. 29 [153][163](38[171][195](r$))[173]2)"/";:[129]l[178]1[164][195](r$):[153]"tan";:[130]l:[153]"exp
  16. 30 print"[158]     1) [211]can [210]ecords":print"     2) [211]earch
  17. 31 [153]"     3) atndd (NULL)ecord":[153]"     4) (NULL)ailing (NULL)abels (1st ascour ascields)"
  18. 32 [153]"     5) (NULL)eport ((NULL)ort)":[153]"     6) (NULL)atn(NULL)val (NULL)(NULL)str$atn(NULL)valwait (str$o peekefore (NULL)uitting)"
  19. 33 [153]"     7) str$isk str$irectory":[153]"     8) (NULL)uit
  20. 34 print"     [205]emory bytes available[146]:";fre(0)
  21. 36 poke198,0
  22. 37 getk$:ifk$=""then37
  23. 38 ifval(k$)<1orval(k$)>8then37
  24. 40 k=val(k$):onkgosub50,300,500,425,600,900,8000,47
  25. 45 goto 25
  26. 47 print"[147]"chr$(9):end
  27. 50 rem ----
  28. 51 rem scan
  29. 52 rem ----
  30. 55 input"[147][211]tart scan at which record";sc
  31. 57 ifsc=0thenreturn
  32. 58 print"[211]canning..."
  33. 60 gosub250
  34. 65 gosub100:ifabs(a)<scthen65
  35. 67 ifa$="end of data"thengosub250:goto25
  36. 70 gosub150
  37. 75 goto65
  38. 100 rem -----------
  39. 101 rem read record
  40. 102 rem -----------
  41. 105 reada$:reada
  42. 110 ifa$="[166]"thenreturn
  43. 112 ifa$="end of data"thenreturn
  44. 115 fort=1tor:reada$(t):next
  45. 120 return
  46. 150 rem --------------------
  47. 151 rem put record on screen
  48. 152 rem --------------------
  49. 153 e=0:ifa$="[166]"then print"[147][210]ecord "abs(a)" [197][205][208][212][217]":e=1:goto180
  50. 155 print"[147][158] [210]ecord: [155]"abs(a)""
  51. 160 fort=1tor:print"[158]"f$(t)": [155]";:printa$(t):next
  52. 165 print"[158]  1) [196]elete"
  53. 170 print"  2) [197]dit"
  54. 175 print"  3) [208]rint"
  55. 180 print"  4) [195]ontinue
  56. 185 [153]"  5) (NULL)ain (NULL)enu
  57. 188 getk$:ifval(k$)<1orval(k$)>5then188
  58. 190 ife=1thenifval(k$)<4then188
  59. 191 ifk$="1"thengosub200
  60. 192 ifk$="2"thengosub550
  61. 193 ifk$="3"thengosub350
  62. 194 ifk$="4"thenreturn
  63. 195 ifk$="5"then25
  64. 196 return
  65. 200 rem -------------
  66. 201 rem delete record
  67. 202 rem -------------
  68. 205 print"[144][147]":z=abs(a)*10+1000:printz"data"chr$(34)"[166]"chr$(34)","a
  69. 210 fort=z+1toz+r:printt:next:print"run"
  70. 215 print"[155][196]eleting [201]tem: "abs(a)"[144]"
  71. 220 rem ---------------
  72. 221 rem create new data
  73. 222 rem ---------------
  74. 225 iffre(0)<650then print"[147][196]atabase is full, new data not added!!!":goto230
  75. 227 goto245
  76. 230 print"[208]ress any key to continue."
  77. 235 getk$:ifk$=""then235
  78. 245 poke198,10:fort=0to9:poke631+t,13:next:end
  79. 250 rem -------
  80. 251 rem restore
  81. 252 rem -------
  82. 255 restore
  83. 257 readb$:ifb$<>"[220]"then257
  84. 259 return
  85. 300 rem ------
  86. 301 rem search
  87. 302 rem ------
  88. 303 sr=0
  89. 305 input"[147][211]earch for: ";sr$
  90. 310 gosub 250:rem restore
  91. 312 print"[211]earching..."
  92. 315 read a$,a
  93. 320 if a$="[166]"then315
  94. 325 if a$="end of data"then return
  95. 330 fort=1tor:reada$(t)
  96. 335 if left$(a$(t),len(sr$))=sr$thensr=1
  97. 340 next:ifsr=1thengosub150:rem screen
  98. 345 sr=0:goto315
  99. 350 rem ------------
  100. 351 rem print record
  101. 352 rem ------------
  102. 355 print"[208]repare [208]rinter."
  103. 365 print"1) [208]rint [197]ntire [210]ecord":print"2) [208]rint [205]ail [204]abel (1st 4 [198]ields)
  104. 367 [161]k$:[139]k$[178]""[167]367
  105. 368 [139]k$[178][199](13)[167][142]
  106. 369 [139]k$[178]"2"[167]400
  107. 370 [139]k$[179][177]"1"[167]367
  108. 375 [159]4,4,7:[157]4
  109. 380 [129]t[178]1[164]r:[152]4,a$(t):[130]
  110. 385 [152]4:[160]4:[142]
  111. 400 [143] -----------
  112. 401 [143] print label
  113. 402 [143] -----------
  114. 405 [153]"right$f your records are by last name, do youwant the last name at the end
  115. 406 print"of the top line of the label? y[146] or n"
  116. 407 getks$:ifks$=""then407
  117. 408 forx=1tolen(a$(1)):ifmid$(a$(1),x,1)=" "thenaa$=left$(a$(1),x):x=len(a$(1))
  118. 409 next:x=len(a$(1))-len(aa$):ifks$="y"thena$(1)=right$(a$(1),x)+" "+aa$
  119. 410 if fs=1thenreturn
  120. 412 open4,4,7:cmd4
  121. 415 fort=1to4:print#4,a$(t):next
  122. 420 print#4:close4:return
  123. 425 rem ------------
  124. 426 rem print labels
  125. 427 rem ------------
  126. 428 cj=1:print"[208]repare printer."
  127. 429 print"[205]ailing [204]abels consist of the first     four fields."
  128. 430 print"(e.g. [206]ame, [193]ddress, [195]ity, [211]tate)
  129. 433 [153]"right$f your records are by last name, do youwant the last name at the end
  130. 435 print"of the top line of the label? y[146] or n"
  131. 436 getks$:ifks$=""then436
  132. 437 ifks$=chr$(13)then449
  133. 438 gosub636:print"[200]old down '[211]' to stop printing."
  134. 440 gosub250
  135. 442 gosub100:ifa$="[166]"then442
  136. 444 geth$:ifh$="s"then449
  137. 446 ifa$="end of data"then449
  138. 447 iflm=1thenifleft$(a$(se),len(ns$))<>ns$then442
  139. 448 gosub408:goto442
  140. 449 lm=0:n$="":cj=0:return
  141. 500 rem ----------
  142. 501 rem add record
  143. 502 rem ----------
  144. 503 print"[147][197]nter new record number or press [210][197][212][213][210][206] to search for an empty record."
  145. 504 inputa:ifa<1then508
  146. 505 ifa>300then504
  147. 506 print"[147][158]([206][207][212][197]: [212]his will erase any current      record in this location.)"
  148. 507 goto515
  149. 508 print"[147][204]ooking for an empty record..."
  150. 509 restore
  151. 510 read a$
  152. 512 ifa$="end of data"thenprint"[147][196][193][212][193][194][193][211][197] [198][213][204][204]!":fort=1to3000:next:goto25
  153. 513 ifa$<>"[166]"then510
  154. 514 reada:print"[147]"
  155. 515 print"[212]ry not to use commas or colons in an"
  156. 520 print"entry, but if you must, begin line with quotation mark--("chr$(34)")"
  157. 522 print"[204]imit entries to 67 characters!"
  158. 525 print"[158][210]ecord: [155]"abs(a)"":fort=1tor:print"[158]"f$(t)":[155]";
  159. 527 inputd$(t):print
  160. 530 ifd$(1)=""thent=r:next:goto25
  161. 532 iflen(d$(1))>67thend$(1)="":print"[158][197]ntry too long, please redo.[155]":goto527
  162. 535 next:d$(0)="xx"+chr$(34)+","+str$(a):z=abs(a)*10+1000:k=0:print"[144][147]"
  163. 540 fort=ztoz+r:printt"data"chr$(34)d$(k):k=k+1:next:print "run"
  164. 545 print"[155][193]dding [201]tem: "abs(a)"[144]":goto220
  165. 550 rem ----
  166. 551 rem edit
  167. 552 rem ----
  168. 553 print"[147][210]ecord :"abs(a)"":fori=1tor:print"  "a$(i):next
  169. 555 print"[197]dit errors then press [210][197][212][213][210][206].":fort=1tor:inputa$(t)
  170. 560 next:a$(0)="xx"+chr$(34)+","+str$(a):z=abs(a)*10+1000:k=0:print"[144][147]"
  171. 565 fort=ztoz+r:printt"data"chr$(34)a$(k):k=k+1:next:print "run"
  172. 570 print"[155][205]aking corrections.[144]":goto220
  173. 597 rem ----
  174. 598 rem sort
  175. 599 rem ----
  176. 600 ifpeek(49152)=32then618
  177. 602 print"[147][204]oading sort program..."
  178. 604 i=49152
  179. 606 readck$:ifck$="[214]"then610
  180. 608 goto606
  181. 610 readso:ifso=256then616
  182. 612 pokei,so:i=i+1
  183. 614 goto610
  184. 616 restore
  185. 618 rem
  186. 620 print"[147][215]hich field do you want sorted?"
  187. 622 fori=1tor:printtab(5)i"[157]) "f$(i):next
  188. 624 poke198,0
  189. 626 getk$:ifk$=""then626
  190. 628 ifval(k$)<1orval(k$)>rthen624
  191. 630 f=val(k$)
  192. 632 ns$=f$(f)
  193. 636 lm=0:print"[196]o you want to specify a limitation?"
  194. 638 poke198,0
  195. 640 getk$:ifk$=""then640
  196. 641 ifk$="y"thengosub800
  197. 642 ifcj=1thenreturn
  198. 643 gosub7000
  199. 644 print"[147][211]orting.  [208]lease wait."
  200. 646 readc$
  201. 648 ifc$="end of data"then662
  202. 650 ifc$="xx"then654
  203. 652 goto646
  204. 654 readd:d=abs(d):forff=1tor:readff$(ff):ff$(ff)=ff$(ff)+"                    "
  205. 655 ff$(ff)=ff$(ff)+"                                  ":next
  206. 656 s$(d)=left$(ff$(f),w(0))+" "+left$(ff$(m(1)),w(1))+" "+left$(ff$(m(2)),w(2))
  207. 657 s$(d)=s$(d)+" "+left$(ff$(m(3)),w(3))
  208. 658 iflm=1thenifleft$(ff$(se),len(ns$))<>ns$thens$(d)=""
  209. 660 goto646
  210. 662 sys49152,d,s$(1)
  211. 663 fort=1to3:m(t)=0:next
  212. 664 print"[147]   [215]here do you want the list printed?"
  213. 666 printtab(7)"1. [211]creen      2. [208]rinter"
  214. 668 poke198,0
  215. 670 getk$:ifk$=""then670
  216. 671 ifval(k$)<1orval(k$)>2then668
  217. 672 o=val(k$)
  218. 673 ifo=1then676
  219. 676 printtab(6)"[208]ress '[208]' to begin printing."
  220. 678 print"  [196]uring list, you may press [211][208][193][195][197][146] to"
  221. 680 print"  pause and resume.  [208]ressing '[193]' will    abort the listing."
  222. 684 ifo=1then690
  223. 686 print"  [205]ake sure printer is ready."
  224. 688 open4,4,7
  225. 690 getk$:ifk$<>"p"then690
  226. 691 fs=0:ifo=2thenfs=1
  227. 692 print
  228. 694 ifo=2thenprint#4,ns$;:print#4,spc(abs(w(0)-len(ns$)+1))
  229. 695 ifo=2thenforl=1to3:print#4,pf$(l);:print#4,spc(abs(w(l)-len(pf$(l))+1));:nextl
  230. 696 ifo=2thenprint#4:forl=1to79:print#4,"-";:nextl:print#4
  231. 697 printns$;:printspc(abs(w(0)-len(ns$)+1))
  232. 698 forl=1to3:printpf$(l);:printspc(abs(w(l)-len(pf$(l))+1));:nextl:print
  233. 699 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  234. 700 fori=1tod:poke198,0
  235. 702 ifo=2thenifs$(i)=""thennexti
  236. 704 ifo=2thenxl=len(s$(i))-6:a$(1)=left$(s$(i),xl):gosub408
  237. 705 ifo=2thenprint#4,s$(i)
  238. 706 ifs$(i)=""thennexti
  239. 707 prints$(i):ifo=1thenfort=1to200:nextt
  240. 708 getkk$:ifkk$="a"theni=d:goto712
  241. 710 ifkk$=" "thenwait198,1
  242. 712 nexti:ifo=2thenprint#4:close4
  243. 714 print" [211]ort completed.  [215]ant to see it again?"
  244. 716 poke198,0
  245. 718 getk$:ifk$=""then718
  246. 720 ifk$="y"then662
  247. 722 ifk$="n"thenclose4:run
  248. 724 goto716
  249. 800 rem ---------------
  250. 801 rem sort limitation
  251. 802 rem ---------------
  252. 804 lm=1:print"[215]hich field do you want the limitation  to come from?"
  253. 806 fori=1tor:printtab(5)i"[157]) "f$(i):next
  254. 808 poke198,0
  255. 810 getk$:ifk$=""then810
  256. 812 ifval(k$)<1orval(k$)>rthen810
  257. 814 se=val(k$)
  258. 816 print"[208]lease enter search string for the      limitation:"
  259. 818 inputns$
  260. 820 return
  261. 900 rem -----------
  262. 901 rem save update
  263. 902 rem -----------
  264. 905 print"[147][211]aving update."
  265. 907 print"[208]lease wait until the disk drive is     done working."
  266. 910 open15,8,15,"s0:"+r$
  267. 915 close15:saver$,8
  268. 920 ifst<>0thenprint"[213][208][196][193][212][197] [206][207][212] [211][193][214][197][196]!":print"[196]isk [197]rror!"
  269. 925 ifst<>0thenprint"[208]ress a key to return to menu."
  270. 927 ifst<>0thengetk$:ifk$=""then927
  271. 930 return
  272. 997 rem --------------
  273. 998 rem record storage
  274. 999 rem --------------
  275. 1000 data"[220]"
  276. 1010 data"[166]",- 1
  277. 1020 data"[166]",- 2
  278. 1030 data"[166]",- 3
  279. 1040 data"[166]",- 4
  280. 1050 data"[166]",- 5
  281. 1060 data"[166]",- 6
  282. 1070 data"[166]",- 7
  283. 1080 data"[166]",- 8
  284. 1090 data"[166]",- 9
  285. 1100 data"[166]",- 10
  286. 1110 data"[166]",- 11
  287. 1120 data"[166]",- 12
  288. 1130 data"[166]",- 13
  289. 1140 data"[166]",- 14
  290. 1150 data"[166]",- 15
  291. 1160 data"[166]",- 16
  292. 1170 data"[166]",- 17
  293. 1180 data"[166]",- 18
  294. 1190 data"[166]",- 19
  295. 1200 data"[166]",- 20
  296. 1210 data"[166]",- 21
  297. 1220 data"[166]",- 22
  298. 1230 data"[166]",- 23
  299. 1240 data"[166]",- 24
  300. 1250 data"[166]",- 25
  301. 1260 data"[166]",- 26
  302. 1270 data"[166]",- 27
  303. 1280 data"[166]",- 28
  304. 1290 data"[166]",- 29
  305. 1300 data"[166]",- 30
  306. 1310 data"[166]",- 31
  307. 1320 data"[166]",- 32
  308. 1330 data"[166]",- 33
  309. 1340 data"[166]",- 34
  310. 1350 data"[166]",- 35
  311. 1360 data"[166]",- 36
  312. 1370 data"[166]",- 37
  313. 1380 data"[166]",- 38
  314. 1390 data"[166]",- 39
  315. 1400 data"[166]",- 40
  316. 1410 data"[166]",- 41
  317. 1420 data"[166]",- 42
  318. 1430 data"[166]",- 43
  319. 1440 data"[166]",- 44
  320. 1450 data"[166]",- 45
  321. 1460 data"[166]",- 46
  322. 1470 data"[166]",- 47
  323. 1480 data"[166]",- 48
  324. 1490 data"[166]",- 49
  325. 1500 data"[166]",- 50
  326. 1510 data"[166]",- 51
  327. 1520 data"[166]",- 52
  328. 1530 data"[166]",- 53
  329. 1540 data"[166]",- 54
  330. 1550 data"[166]",- 55
  331. 1560 data"[166]",- 56
  332. 1570 data"[166]",- 57
  333. 1580 data"[166]",- 58
  334. 1590 data"[166]",- 59
  335. 1600 data"[166]",- 60
  336. 1610 data"[166]",- 61
  337. 1620 data"[166]",- 62
  338. 1630 data"[166]",- 63
  339. 1640 data"[166]",- 64
  340. 1650 data"[166]",- 65
  341. 1660 data"[166]",- 66
  342. 1670 data"[166]",- 67
  343. 1680 data"[166]",- 68
  344. 1690 data"[166]",- 69
  345. 1700 data"[166]",- 70
  346. 1710 data"[166]",- 71
  347. 1720 data"[166]",- 72
  348. 1730 data"[166]",- 73
  349. 1740 data"[166]",- 74
  350. 1750 data"[166]",- 75
  351. 1760 data"[166]",- 76
  352. 1770 data"[166]",- 77
  353. 1780 data"[166]",- 78
  354. 1790 data"[166]",- 79
  355. 1800 data"[166]",- 80
  356. 1810 data"[166]",- 81
  357. 1820 data"[166]",- 82
  358. 1830 data"[166]",- 83
  359. 1840 data"[166]",- 84
  360. 1850 data"[166]",- 85
  361. 1860 data"[166]",- 86
  362. 1870 data"[166]",- 87
  363. 1880 data"[166]",- 88
  364. 1890 data"[166]",- 89
  365. 1900 data"[166]",- 90
  366. 1910 data"[166]",- 91
  367. 1920 data"[166]",- 92
  368. 1930 data"[166]",- 93
  369. 1940 data"[166]",- 94
  370. 1950 data"[166]",- 95
  371. 1960 data"[166]",- 96
  372. 1970 data"[166]",- 97
  373. 1980 data"[166]",- 98
  374. 1990 data"[166]",- 99
  375. 2000 data"[166]",- 100
  376. 2010 data"[166]",- 101
  377. 2020 data"[166]",- 102
  378. 2030 data"[166]",- 103
  379. 2040 data"[166]",- 104
  380. 2050 data"[166]",- 105
  381. 2060 data"[166]",- 106
  382. 2070 data"[166]",- 107
  383. 2080 data"[166]",- 108
  384. 2090 data"[166]",- 109
  385. 2100 data"[166]",- 110
  386. 2110 data"[166]",- 111
  387. 2120 data"[166]",- 112
  388. 2130 data"[166]",- 113
  389. 2140 data"[166]",- 114
  390. 2150 data"[166]",- 115
  391. 2160 data"[166]",- 116
  392. 2170 data"[166]",- 117
  393. 2180 data"[166]",- 118
  394. 2190 data"[166]",- 119
  395. 2200 data"[166]",- 120
  396. 2210 data"[166]",- 121
  397. 2220 data"[166]",- 122
  398. 2230 data"[166]",- 123
  399. 2240 data"[166]",- 124
  400. 2250 data"[166]",- 125
  401. 2260 data"[166]",- 126
  402. 2270 data"[166]",- 127
  403. 2280 data"[166]",- 128
  404. 2290 data"[166]",- 129
  405. 2300 data"[166]",- 130
  406. 2310 data"[166]",- 131
  407. 2320 data"[166]",- 132
  408. 2330 data"[166]",- 133
  409. 2340 data"[166]",- 134
  410. 2350 data"[166]",- 135
  411. 2360 data"[166]",- 136
  412. 2370 data"[166]",- 137
  413. 2380 data"[166]",- 138
  414. 2390 data"[166]",- 139
  415. 2400 data"[166]",- 140
  416. 2410 data"[166]",- 141
  417. 2420 data"[166]",- 142
  418. 2430 data"[166]",- 143
  419. 2440 data"[166]",- 144
  420. 2450 data"[166]",- 145
  421. 2460 data"[166]",- 146
  422. 2470 data"[166]",- 147
  423. 2480 data"[166]",- 148
  424. 2490 data"[166]",- 149
  425. 2500 data"[166]",- 150
  426. 2510 data"[166]",- 151
  427. 2520 data"[166]",- 152
  428. 2530 data"[166]",- 153
  429. 2540 data"[166]",- 154
  430. 2550 data"[166]",- 155
  431. 2560 data"[166]",- 156
  432. 2570 data"[166]",- 157
  433. 2580 data"[166]",- 158
  434. 2590 data"[166]",- 159
  435. 2600 data"[166]",- 160
  436. 2610 data"[166]",- 161
  437. 2620 data"[166]",- 162
  438. 2630 data"[166]",- 163
  439. 2640 data"[166]",- 164
  440. 2650 data"[166]",- 165
  441. 2660 data"[166]",- 166
  442. 2670 data"[166]",- 167
  443. 2680 data"[166]",- 168
  444. 2690 data"[166]",- 169
  445. 2700 data"[166]",- 170
  446. 2710 data"[166]",- 171
  447. 2720 data"[166]",- 172
  448. 2730 data"[166]",- 173
  449. 2740 data"[166]",- 174
  450. 2750 data"[166]",- 175
  451. 2760 data"[166]",- 176
  452. 2770 data"[166]",- 177
  453. 2780 data"[166]",- 178
  454. 2790 data"[166]",- 179
  455. 2800 data"[166]",- 180
  456. 2810 data"[166]",- 181
  457. 2820 data"[166]",- 182
  458. 2830 data"[166]",- 183
  459. 2840 data"[166]",- 184
  460. 2850 data"[166]",- 185
  461. 2860 data"[166]",- 186
  462. 2870 data"[166]",- 187
  463. 2880 data"[166]",- 188
  464. 2890 data"[166]",- 189
  465. 2900 data"[166]",- 190
  466. 2910 data"[166]",- 191
  467. 2920 data"[166]",- 192
  468. 2930 data"[166]",- 193
  469. 2940 data"[166]",- 194
  470. 2950 data"[166]",- 195
  471. 2960 data"[166]",- 196
  472. 2970 data"[166]",- 197
  473. 2980 data"[166]",- 198
  474. 2990 data"[166]",- 199
  475. 3000 data"[166]",- 200
  476. 3010 data"[166]",- 201
  477. 3020 data"[166]",- 202
  478. 3030 data"[166]",- 203
  479. 3040 data"[166]",- 204
  480. 3050 data"[166]",- 205
  481. 3060 data"[166]",- 206
  482. 3070 data"[166]",- 207
  483. 3080 data"[166]",- 208
  484. 3090 data"[166]",- 209
  485. 3100 data"[166]",- 210
  486. 3110 data"[166]",- 211
  487. 3120 data"[166]",- 212
  488. 3130 data"[166]",- 213
  489. 3140 data"[166]",- 214
  490. 3150 data"[166]",- 215
  491. 3160 data"[166]",- 216
  492. 3170 data"[166]",- 217
  493. 3180 data"[166]",- 218
  494. 3190 data"[166]",- 219
  495. 3200 data"[166]",- 220
  496. 3210 data"[166]",- 221
  497. 3220 data"[166]",- 222
  498. 3230 data"[166]",- 223
  499. 3240 data"[166]",- 224
  500. 3250 data"[166]",- 225
  501. 3260 data"[166]",- 226
  502. 3270 data"[166]",- 227
  503. 3280 data"[166]",- 228
  504. 3290 data"[166]",- 229
  505. 3300 data"[166]",- 230
  506. 3310 data"[166]",- 231
  507. 3320 data"[166]",- 232
  508. 3330 data"[166]",- 233
  509. 3340 data"[166]",- 234
  510. 3350 data"[166]",- 235
  511. 3360 data"[166]",- 236
  512. 3370 data"[166]",- 237
  513. 3380 data"[166]",- 238
  514. 3390 data"[166]",- 239
  515. 3400 data"[166]",- 240
  516. 3410 data"[166]",- 241
  517. 3420 data"[166]",- 242
  518. 3430 data"[166]",- 243
  519. 3440 data"[166]",- 244
  520. 3450 data"[166]",- 245
  521. 3460 data"[166]",- 246
  522. 3470 data"[166]",- 247
  523. 3480 data"[166]",- 248
  524. 3490 data"[166]",- 249
  525. 3500 data"[166]",- 250
  526. 3510 data"[166]",- 251
  527. 3520 data"[166]",- 252
  528. 3530 data"[166]",- 253
  529. 3540 data"[166]",- 254
  530. 3550 data"[166]",- 255
  531. 3560 data"[166]",- 256
  532. 3570 data"[166]",- 257
  533. 3580 data"[166]",- 258
  534. 3590 data"[166]",- 259
  535. 3600 data"[166]",- 260
  536. 3610 data"[166]",- 261
  537. 3620 data"[166]",- 262
  538. 3630 data"[166]",- 263
  539. 3640 data"[166]",- 264
  540. 3650 data"[166]",- 265
  541. 3660 data"[166]",- 266
  542. 3670 data"[166]",- 267
  543. 3680 data"[166]",- 268
  544. 3690 data"[166]",- 269
  545. 3700 data"[166]",- 270
  546. 3710 data"[166]",- 271
  547. 3720 data"[166]",- 272
  548. 3730 data"[166]",- 273
  549. 3740 data"[166]",- 274
  550. 3750 data"[166]",- 275
  551. 3760 data"[166]",- 276
  552. 3770 data"[166]",- 277
  553. 3780 data"[166]",- 278
  554. 3790 data"[166]",- 279
  555. 3800 data"[166]",- 280
  556. 3810 data"[166]",- 281
  557. 3820 data"[166]",- 282
  558. 3830 data"[166]",- 283
  559. 3840 data"[166]",- 284
  560. 3850 data"[166]",- 285
  561. 3860 data"[166]",- 286
  562. 3870 data"[166]",- 287
  563. 3880 data"[166]",- 288
  564. 3890 data"[166]",- 289
  565. 3900 data"[166]",- 290
  566. 3910 data"[166]",- 291
  567. 3920 data"[166]",- 292
  568. 3930 data"[166]",- 293
  569. 3940 data"[166]",- 294
  570. 3950 data"[166]",- 295
  571. 3960 data"[166]",- 296
  572. 3970 data"[166]",- 297
  573. 3980 data"[166]",- 298
  574. 3990 data"[166]",- 299
  575. 4000 data"[166]",- 300
  576. 4010 data"end of data",-301
  577. 7000 rem ----------------
  578. 7001 rem special printout
  579. 7002 rem ----------------
  580. 7005 fort=0to3:w(t)=0:nextt
  581. 7010 print"[147][215]ould you like other fields printed     alongside?  (y[146] or n[146])"
  582. 7020 getk$:ifk$=""then7020
  583. 7030 ifk$="y"thenmm=1:goto7050
  584. 7035 w(0)=36
  585. 7040 return
  586. 7050 input"[200]ow wide do you want the sort column";w(0)
  587. 7052 fort=1tor:printt"[157]) "f$(t):next
  588. 7055 print"[217]ou may choose up to 3 fields,          press [210][197][212][213][210][206] for no field."
  589. 7060 fort=1to3:print"[215]hich field? "
  590. 7070 getk$:ifk$=""then7070
  591. 7075 ifk$=chr$(13)thenm=0
  592. 7080 m=val(k$):ifm<0orm>rthen7070
  593. 7085 pf$(t)=f$(m)
  594. 7090 printm:m(t)=m
  595. 7092 input"[200]ow wide do you want this column";w(t)
  596. 7095 nextt
  597. 7097 ifw(0)+w(1)+w(2)+w(3)>80thenprint"total widths must be less than 80!":goto7050
  598. 7100 return
  599. 7999 rem --------------
  600. 8000 rem disk directory
  601. 8001 rem --------------
  602. 8010 print"[147]";
  603. 8015 open15,8,15,"i0"
  604. 8020 open2,8,0,"$0:*"
  605. 8040 get#2,a$,a$
  606. 8050 get#2,a$,b$,c$,d$
  607. 8060 c=0:ifc$<>""thenc=asc(c$)
  608. 8070 ifd$<>""thenc=c+asc(d$)*256
  609. 8080 get#2,a$:ifst<>0then8200
  610. 8090 printc;a$;
  611. 8100 get#2,a$:ifa$<>""thenprinta$;:goto8100
  612. 8110 print:goto8050
  613. 8200 close2:close15
  614. 8210 print"[158][208]ress any key";
  615. 8220 geta$:ifa$=""then8220
  616. 8230 return
  617. 49000 rem ---------
  618. 49001 rem sort data
  619. 49002 rem ---------
  620. 49003 rem lightning sort copyright
  621. 49004 rem compute! publications
  622. 49005 rem
  623. 49152 data "[214]",32,253,174,32,158,173
  624. 49158 data 32,247,183,165,20,133
  625. 49164 data 253,165,21,133,254,32
  626. 49170 data 253,174,32,158,173,162
  627. 49176 data 1,165,71,157,85,193
  628. 49182 data 157,125,193,165,72,157
  629. 49188 data 105,193,157,145,193,165
  630. 49194 data 253,208,2,198,254,198
  631. 49200 data 253,160,3,24,189,125
  632. 49206 data 193,101,253,157,125,193
  633. 49212 data 189,145,193,101,254,157
  634. 49218 data 145,193,136,208,236,189
  635. 49224 data 85,193,133,80,189,105
  636. 49230 data 193,133,81,189,125,193
  637. 49236 data 133,82,189,145,193,133
  638. 49242 data 83,32,21,193,144,4
  639. 49248 data 202,208,228,96,165,82
  640. 49254 data 133,78,165,83,133,79
  641. 49260 data 160,2,177,78,153,250
  642. 49266 data 0,136,16,248,48,11
  643. 49272 data 24,165,80,105,3,133
  644. 49278 data 80,144,2,230,81,160
  645. 49284 data 2,177,80,153,247,0
  646. 49290 data 136,16,248,32,32,193
  647. 49296 data 144,230,56,165,82,233
  648. 49302 data 3,133,82,176,2,198
  649. 49308 data 83,32,21,193,176,31
  650. 49314 data 160,2,177,82,153,247
  651. 49320 data 0,136,16,248,32,32
  652. 49326 data 193,176,225,160,2,177
  653. 49332 data 80,145,82,185,247,0
  654. 49338 data 145,80,136,16,244,48
  655. 49344 data 183,160,2,177,80,145
  656. 49350 data 78,185,250,0,145,80
  657. 49356 data 136,16,244,24,189,85
  658. 49362 data 193,125,125,193,133,82
  659. 49368 data 189,105,193,125,145,193
  660. 49374 data 133,83,102,83,102,82
  661. 49380 data 32,21,193,176,22,189
  662. 49386 data 85,193,157,86,193,189
  663. 49392 data 105,193,157,106,193,32
  664. 49398 data 53,193,232,32,69,193
  665. 49404 data 76,71,192,189,125,193
  666. 49410 data 157,126,193,189,145,193
  667. 49416 data 157,146,193,32,69,193
  668. 49422 data 232,32,53,193,76,71
  669. 49428 data 192,165,81,197,83,208
  670. 49434 data 4,165,80,197,82,96
  671. 49440 data 160,255,200,196,247,176
  672. 49446 data 11,196,250,176,6,177
  673. 49452 data 248,209,251,240,241,96
  674. 49458 data 196,250,96,24,165,80
  675. 49464 data 105,3,157,85,193,165
  676. 49470 data 81,105,0,157,105,193
  677. 49476 data 96,56,165,80,233,3
  678. 49482 data 157,125,193,165,81,233
  679. 49488 data 0,157,145,193,96,256
  680. 60000 print"[212]his program creates the database and isnot a database itself."
  681. 60001 print"[197]nter a title for the database:":inputt$
  682. 60002 input"[200]ow many fields per record (1-8)";r:ifr>8then60002
  683. 60003 print"[147]":print"1rem file drawer -- by s.j. takis":print2:print3
  684. 60004 print"4r="r:print"10 data"chr$(34);t$;chr$(34)","r:print"run":goto220
  685. 60005 x=1:fori=1tor:print"[151][206]ame of field "i;:inputw$(x):x=x+1:next:print"[147]"
  686. 60006 fori=11tor+10:printi"data"chr$(34)w$(i-10):next:print6:print"run":goto220
  687. 60007 print"[147]7":fori=60000to60007:printi:next:print"run":goto220
  688. 60008 print"[147]8":print60008:print60009:readt$:print"save"chr$(34)t$chr$(34)",8
  689. 60009 [153]"goto60010":[153]"(NULL)lease wait until disk is finished...":[137]220
  690. 60010 [140]:[135]t$:[140]:[153]"load(NULL)our database "[199](34)t$[199](34)
  691. 60011 [153]"has been created.":[151]198,0
  692. 60012 [153]"(NULL)ress (NULL)val(NULL)(NULL)(NULL)(NULL) to load.":[153]"load"[199](34)t$[199](34)",8ononon":[162]
  693.